home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / datature / omahadb / menu.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-11-05  |  2.5 KB  |  50 lines
  1. 1000  DIM U%(22):FOR I=0 TO 21:READ U%(I):NEXT:DATA&H8B55,&HB8EC,&H0600,&H07B7,&H768B,&H8A0C,&H8B2C,&HA76,&HC8A,&H768B,&H8A08,&H8B34,&H676,&H148A,&HCDFE,&HC9FE,&HCEFE,&HCAFE,&H10CD,&HCA5D,&H8,&H0
  2. 1010  GOTO 1050
  3. 1020    R1%=4:R2%=24:C1%=1:C2%=80:GOTO 1040: REM SCREEN CLEAR
  4. 1030    R1%=4:R2%=19:C1%=1:C2%=80:GOTO 1040: REM SCREEN CLEAR
  5. 1040  DEF SEG: SUBRT%=VARPTR(U%(0)):CALL SUBRT%(R1%,C1%,R2%,C2%):RETURN
  6. 1050  KEY OFF:FOR G=1 TO 10:KEY G,"":NEXT:GOSUB 1020
  7. 1060  IF CHR$(SCREEN(2,27))<>"T" THEN CLS: COLOR 0,7:PRINT SPACE$(240):LOCATE 2,27:PRINT "The Omaha DataBase Program":LOCATE 1,1:PRINT"KEY";STRING$(78,"THEN");"CLOSE":LOCATE 2,1:PRINT "OPEN":LOCATE 2,80:PRINT "OPEN":LOCATE 3,1:PRINT "SCREEN";STRING$(78,"THEN");"LOAD": COLOR 7,0
  8. 1070  LOCATE 2,3:PRINT TIME$:LOCATE 2,69:PRINT DATE$
  9. 1080  TIMER ON: ON TIMER (1) GOSUB 1390
  10. 1090  LOCATE 6,25: COLOR 25: PRINT "PRESS FUNCTION KEY FOR CHOICE":COLOR 7,0
  11. 1100  DATA F1  CREATE/ALTER,F2  DATA ENTRY,F3  SORT,F4  PRINT,F5  REPAIR,F6  PRINTER CONFIGURATION,,,,F10 END
  12. 1110  FOR G=1 TO 10:READ X$:LOCATE 9+G,25:PRINT X$:NEXT
  13. 1120  CH$=INKEY$: IF CH$="" THEN 1120
  14. 1130  IF ASC(LEFT$(CH$,1))=0 THEN 1150
  15. 1140  BEEP:GOTO 1120
  16. 1150  CH=ASC(MID$(CH$,2)): CH=CH-58
  17. 1160  ON CH GOTO 1170,1180,1190,1200,1210,1220,1230,1240,1250,1260
  18. 1170  RUN "CREATE"
  19. 1180  RUN "DATA"
  20. 1190  RUN "SORT"
  21. 1200  RUN "PRINT"
  22. 1210  RUN "REPAIR"
  23. 1220  RUN "PCNFG"
  24. 1230  GOTO 1140
  25. 1240  GOTO 1140
  26. 1250  GOTO 1140
  27. 1260  GOTO 1270
  28. 1270  REM ENDING
  29. 1280  GOSUB 1020
  30. 1290  LOCATE 6,1
  31. 1300  COLOR 0,7:PRINT "THANKS FOR USING The Omaha DataBase Program": PRINT
  32. 1310  COLOR 7,0:PRINT "Please forward any additional comments to the author, Gerald Gonderinger, Box   150, Clearwater Ne. 68726."
  33. 1315  PRINT:PRINT "Feel free to copy this program and to share it with others who might be         interested in using it. (You cannot, however, copy the SORT.EXE program since   this can be copied only by special arrangement.)  If you are pleased with this"
  34. 1316  PRINT "program, then please send a $50.00 check (made out to Gerald Gonderinger) to    this address:"
  35. 1330  LOCATE ,15: PRINT "Gerald E. Gonderinger"
  36. 1340  LOCATE ,15: PRINT "The Omaha DataBase Program"
  37. 1350  LOCATE ,15: PRINT "Box 150"
  38. 1360  LOCATE ,15: PRINT "Clearwater Ne. 68726"
  39. 1370  PRINT "This will entitle you to a complete disk containing the SORT.EXE program and    you will be on a mailing list to receive notices of updates to this program.    Additional updates will  only cost $10.00"
  40. 1380  END
  41. 1390  OLDROW=CSRLIN:OLDCOL=POS(0):LOCATE 2,3:PRINT TIME$:LOCATE OLDROW,OLDCOL:RETURN
  42. 39999  RETURN 1010
  43. 40000  REM **********************************************************
  44. 40010  REM **********************************************************
  45. 40020  REM ** COPYRIGHT (C) 1984, 1988 GERALD E. GONDERINGER       **
  46. 40030  REM ** CREATED FOR USE OF ARCHDIOCESE OF OMAHA              **
  47. 40040  REM ** $50 REGISTRATION FEE FOR USE OF THIS PROGRAM         **
  48. 40050  REM **********************************************************
  49. 40060  REM **********************************************************
  50.